home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
FishMarket 1.0
/
FishMarket v1.0.iso
/
fishies
/
401-425
/
disk_402
/
stdfile
/
test.c
< prev
next >
Wrap
C/C++ Source or Header
|
1992-05-06
|
2KB
|
87 lines
#include <intuition/intuitionbase.h>
#include <intuition/intuition.h>
#include <libraries/dos.h>
#include <exec/memory.h>
#include <stdio.h>
struct IntuitionBase *IntuitionBase;
struct GfxBase *GfxBase;
#define SECSPERDAY (60*60*24)
#define SECSPERMIN 60
#define TICKSPERSEC TICKS_PER_SECOND
#define MAXNAME 128
char *stdfile();
extern char *Copyright;
main()
{
char name[MAXNAME];
if(!(IntuitionBase = OpenLibrary("intuition.library", 1))) {
printf("Couldn't open intuition.library.\n");
exit(20);
}
if(!(GfxBase = OpenLibrary("graphics.library", 1))) {
printf("Couldn't open graphics.library.\n");
CloseLibrary(IntuitionBase);
exit(20);
}
printf("Testing STDFILE standard file requestor.\n%s\n", Copyright);
name[0] = 0;
while(stdfile("Display file", name, 0, name)) {
BPTR stdlock;
struct FileInfoBlock *stdfib;
FILE *fp;
long datestamp;
int c;
stdfib = AllocMem(sizeof(struct FileInfoBlock), MEMF_PUBLIC);
if(!stdfib) {
printf("Out of memory!\n");
break;
}
if(!(stdlock = Lock(name, ACCESS_READ))) {
printf("Can't obtain lock for %s\n", name);
FreeMem(stdfib, sizeof(struct FileInfoBlock));
continue;
}
if(!(Examine(stdlock, stdfib))) {
printf("Can't examine %s\n", name);
UnLock(stdlock);
FreeMem(stdfib, sizeof(struct FileInfoBlock));
continue;
}
UnLock(stdlock);
if(stdfib->fib_DirEntryType >= 0) {
printf("%s is a directory.\n", name);
FreeMem(stdfib, sizeof(struct FileInfoBlock));
continue;
}
if(!(fp = fopen(name, "r"))) {
perror(name);
FreeMem(stdfib, sizeof(struct FileInfoBlock));
continue;
}
datestamp = stdfib->fib_Date.ds_Days*SECSPERDAY +
stdfib->fib_Date.ds_Minute*SECSPERMIN +
stdfib->fib_Date.ds_Tick/TICKSPERSEC;
printf("\n%s, %s\n", stdfib->fib_FileName,
ctime(&datestamp));
while((c = getc(fp)) != EOF)
putchar(c);
fclose(fp);
FreeMem(stdfib, sizeof(struct FileInfoBlock));
}
CloseLibrary(IntuitionBase);
CloseLibrary(GfxBase);
}